Міністерство освіти та науки України Національний технічний університет України «Київський політехнічний інститут» Факультет прикладної математики Кафедра спеціалізованих комп’ютерних систем РОЗРАХУНКОВА РОБОТА з дисципліни «Організація баз даних» V семестр Київ 2011 Клієнт – Main.pas: unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp; type TForm1 = class(TForm) PORTEDIT: TEdit; LOGBOX: TMemo; EXITBUTTON: TButton; PORTLABEL: TLabel; LOGLABEL: TLabel; CONNECTBUTTON: TButton; SERVERLABEL: TLabel; SERVEREDIT: TEdit; ClientSocket: TClientSocket; QUERYLABEL: TLabel; MSGBOX: TMemo; SENDBUTTON: TButton; CLEARBUTTON: TButton; BUFFER: TListBox; procedure EXITBUTTONClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure CONNECTBUTTONClick(Sender: TObject); procedure SENDBUTTONClick(Sender: TObject); procedure ClientSocketConnect(Sender: TObject; Socket: TCustomWinSocket); procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket); procedure ClientSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket); procedure CLEARBUTTONClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1 : TForm1; query : TStringList; implementation {$R *.dfm} procedure TForm1.EXITBUTTONClick( Sender: TObject ); begin if CONNECTBUTTON.Tag = 1 then CONNECTBUTTON.Click; halt( 0 ); end; procedure TForm1.FormCreate( Sender: TObject ); begin PORTEDIT.Text := '777'; SERVEREDIT.Text := '127.0.0.1'; end; procedure TForm1.SENDBUTTONClick( Sender: TObject ); begin if MSGBOX.Text <> '' then begin query := TStringList.Create; query.Text := StringReplace( MSGBOX.Text, ' ' , #13#10, [ rfReplaceAll ] ); ClientSocket.Socket.SendText( query.Text ); LOGBOX.Lines.Add( '[' + TimeToStr( Time ) + '] Client: ' + MSGBOX.Text ); end else ShowMessage('Please, ented a valid query!'); end; procedure TForm1.CLEARBUTTONClick(Sender: TObject); begin LOGBOX.Clear; end; procedure TForm1.ClientSocketConnect( Sender: TObject; Socket: TCustomWinSocket ); begin LOGBOX.Lines.Add( '[' + TimeToStr( Time ) + '] Connecting to server.' ); end; procedure TForm1.ClientSocketDisconnect( Sender: TObject; Socket: TCustomWinSocket ); begin LOGBOX.Lines.Add( '[' + TimeToStr( Time ) + '] Connection has been closed.' ); if CONNECTBUTTON.Tag = 1 then CONNECTBUTTON.Click; end; procedure TForm1.ClientSocketRead( Sender: TObject; Socket: TCustomWinSocket ); var i : integer; begin BUFFER.Items.Clear; BUFFER.Items.Text := Socket.ReceiveText; for i := 0 to BUFFER.Items.Count - 1 do LOGBOX.Lines.Add(BUFFER.Items[i]); end; procedure TForm1.CONNECTBUTTONClick( Sender: TObject ); begin if CONNECTBUTTON.Tag = 0 then begin SERVEREDIT.Enabled := False; PORTEDIT.Enabled := False; ClientSocket.Port := StrToInt( PORTEDIT.Text ); ClientSocket.Host := SERVEREDIT.Text; ClientSocket.Address := SERVEREDIT.Text; ClientSocket.Active := True; CONNECTBUTTON.Tag := 1; CONNECTBUTTON.Caption := 'Disconnect'; end else begin SERVEREDIT.Enabled := True; PORTEDIT.Enabled := True; ClientSocket.Active := False; CONNECTBUTTON.Tag := 0; CONNECTBUTTON.Caption := 'Connect'; end; end; end. Сервер – Main.pas: unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp; type TLexem = record elements : array of string; count : byte; need : boolean; end; TArr = array of TLexem; TForm1 = class(TForm) PORTEDIT: TEdit; LOGBOX: TMemo; EXITBUTTON: TButton; PORTLABEL: TLabel; LOGLABEL: TLabel; STARTBUTTON: TButton; ServerSocket: TServerSocket; BUFFER: TListBox; ...